home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 101
/
101.d81
/
dominos 01
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
260 lines
1 poke55,0:poke56,128:clr
2 poke53281,0:poke53280,0:print"[147]":gosub60000
3 dv=peek(186):ifdv<8thendv=8
4 sys57812"ssx 01",dv,0:poke780,0:poke781,16:poke782,205:sys65493
5 sys57812"psbx 01",dv,0:poke780,0:poke781,0:poke782,48:sys65493
6 poke53272,29
7 dim m$(9),r$(4):f=0:ff=0:s=54272:gosub9900
8 sp$=" "
10 fori=1to5:readm$(i):next
11 data "[208]rint [208]uzzles "
13 data "[208]rint [211]olutions "
15 data "[210]ead [201]t "
16 data "[195]redits "
17 data "[204]oadstar "
20 tp$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
22 md$="[221][155] [146][221]"
23 ln$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
24 bt$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
25 goto30
26 print"[147]"tp$;
27 fori=1to23:printmd$;:next:printbt$:poke2023,125:poke56295,1
28 fori=217to242:pokei,peek(i)or128:next:return
30 gosub26
32 print"[221][156] [196]ominos [146][221]";
34 println$;
60 poke214,21:print
65 println$;
70 print"[221][154] [213]se cursor keys/[210][197][212][213][210][206] to select [146][221]";
80 gosub28
100 print"";
102 printtab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
104 qq$="[221] [221]"
105 fori=1to7:print""qq$:next
106 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
107 poke214,5:print
109 fori=1to5:printtab(9)""m$(i):next
145 sys52496,6
146 poke198,0
150 r=5:m=1:poke214,r:print:printtab(9)"[154]"m$(m):m1=m:r1=r
155 getk$:ifk$=""then155
160 ifk$=chr$(13)thengosub9930:goto200
165 ifk$="[145]"thenm=m-1:r=r-1:ifm<1thenm=5:r=9
170 ifk$=""thenm=m+1:r=r+1:ifm>5thenm=1:r=5
175 ifm<>m1thenpoke214,r1:print:printtab(9)""m$(m1):gosub9910
180 poke214,r:print:printtab(9)"[154]"m$(m)
182 m1=m:r1=r
185 goto155
190 :
200 onmgoto1000,2000,12000,500,11000
205 goto150
500 sys52496,7
525 poke214,15:print:printtab(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
527 printtab(7)"[221] [208]uzzle [194]y [197]d [198]ournier [221]"
535 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
544 t=1
545 getk$:ifk$<>""then550
546 t=t+1:ift<100then545
550 sys52499,7:gosub28:goto155
555 :
1000 gosub9000:ifppthen155
1005 gosub6000
1007 open4,4
1010 print#4,sp$;"puzzle #1: easy sixes"
1015 print#4
1016 print#4,sp$;"pairs: 0/0 4/0 4/1 4/2 4/3 4/4"
1019 print#4
1020 print#4,sp$;" -- -- -- --"
1021 print#4,sp$;": / :: / : 6"
1022 print#4,sp$;" -- -- -- --"
1024 print#4,sp$;": / :: / : 13"
1025 print#4,sp$;" -- -- -- --"
1027 print#4,sp$;": / :: / : 11"
1028 print#4,sp$;" -- -- -- --"
1035 print#4,sp$;" 8 4 11 7"
1040 print#4
1110 print#4,sp$;"puzzle #2: elusive eights"
1115 print#4
1116 print#4,sp$;"pairs: 0/0 4/0 4/1 4/2 4/3 4/4 4/5 4/6"
1119 print#4
1120 print#4,sp$;" -- -- -- --"
1121 print#4,sp$;": / :: / : 19"
1122 print#4,sp$;" -- -- -- --"
1124 print#4,sp$;": / :: / : 12"
1125 print#4,sp$;" -- -- -- --"
1127 print#4,sp$;": / :: / : 8"
1128 print#4,sp$;" -- -- -- --"
1129 print#4,sp$;": / :: / : 10"
1130 print#4,sp$;" -- -- -- --"
1135 print#4,sp$;" 17 9 11 12"
1140 print#4
1210 print#4,sp$;"puzzle #3: dirty dozen"
1215 print#4
1216 print#4,sp$;"pairs: 0/0 4/0 4/1 4/2 4/3 4/4 4/5 4/6 ";
1217 print#4,"5/1 5/2 5/3 5/6"
1219 print#4
1220 print#4,sp$;" -- -- -- -- -- --"
1221 print#4,sp$;": / :: / :: / : 25"
1222 print#4,sp$;" -- -- -- -- -- --"
1224 print#4,sp$;": / :: / :: / : 23"
1225 print#4,sp$;" -- -- -- -- -- --"
1227 print#4,sp$;": / :: / :: / : 15"
1228 print#4,sp$;" -- -- -- -- -- --"
1229 print#4,sp$;": / :: / :: / : 18"
1230 print#4,sp$;" -- -- -- -- -- --"
1235 print#4,sp$;" 17 9 14 9 11 21"
1240 print#4
1310 print#4,sp$;"puzzle #4: frantic fifteens"
1315 print#4
1316 print#4,sp$;"pairs: 0/0 4/0 4/1 4/2 4/3 4/4 4/5 4/6 ";
1317 print#4,"5/1 5/2 5/3 5/6 5/0 5/5 1/0"
1319 print#4
1320 print#4,sp$;" -- -- -- -- -- --"
1321 print#4,sp$;": / :: / :: / : 19"
1322 print#4,sp$;" -- -- -- -- -- --"
1324 print#4,sp$;": / :: / :: / : 11"
1325 print#4,sp$;" -- -- -- -- -- --"
1327 print#4,sp$;": / :: / :: / : 24"
1328 print#4,sp$;" -- -- -- -- -- --"
1329 print#4,sp$;": / :: / :: / : 14"
1330 print#4,sp$;" -- -- -- -- -- --"
1331 print#4,sp$;": / :: / :: / : 29"
1332 print#4,sp$;" -- -- -- -- -- --"
1335 print#4,sp$;" 9 18 21 16 16 17"
1500 print#4:close4:goto155
1505 :
2000 gosub9000:ifppthen155
2005 gosub6000
2007 open4,4
2010 print#4,sp$;"puzzle #1: easy sixes"
2015 print#4
2016 print#4,sp$;"pairs: 0/0 4/0 4/1 4/2 4/3 4/4"
2019 print#4
2020 print#4,sp$;" -- -- -- --"
2021 print#4,sp$;": 0/0 :: 4/2 : 6"
2022 print#4,sp$;" -- -- -- --"
2024 print#4,sp$;": 4/4 :: 4/1 : 13"
2025 print#4,sp$;" -- -- -- --"
2027 print#4,sp$;": 4/0 :: 3/4 : 11"
2028 print#4,sp$;" -- -- -- --"
2035 print#4,sp$;" 8 4 11 7"
2040 print#4
2110 print#4,sp$;"puzzle #2: elusive eights"
2115 print#4
2116 print#4,sp$;"pairs: 0/0 4/0 4/1 4/2 4/3 4/4 4/5 4/6"
2119 print#4
2120 print#4,sp$;" -- -- -- --"
2121 print#4,sp$;": 5/4 :: 4/6 : 19"
2122 print#4,sp$;" -- -- -- --"
2124 print#4,sp$;": 4/1 :: 3/4 : 12"
2125 print#4,sp$;" -- -- -- --"
2127 print#4,sp$;": 4/4 :: 0/0 : 8"
2128 print#4,sp$;" -- -- -- --"
2129 print#4,sp$;": 4/0 :: 4/2 : 10"
2130 print#4,sp$;" -- -- -- --"
2135 print#4,sp$;" 17 9 11 12"
2140 print#4
2210 print#4,sp$;"puzzle #3: dirty dozen"
2215 print#4
2216 print#4,sp$;"pairs: 0/0 4/0 4/1 4/2 4/3 4/4 4/5 4/6 ";
2217 print#4,"5/1 5/2 5/3 5/6"
2219 print#4
2220 print#4,sp$;" -- -- -- -- -- --"
2221 print#4,sp$;": 5/4 :: 6/4 :: 1/5 : 25"
2222 print#4,sp$;" -- -- -- -- -- --"
2224 print#4,sp$;": 4/1 :: 4/3 :: 5/6 : 23"
2225 print#4,sp$;" -- -- -- -- -- --"
2227 print#4,sp$;": 4/4 :: 0/0 :: 2/5 : 15"
2228 print#4,sp$;" -- -- -- -- -- --"
2229 print#4,sp$;": 4/0 :: 4/2 :: 3/5 : 18"
2230 print#4,sp$;" -- -- -- -- -- --"
2235 print#4,sp$;" 17 9 14 9 11 21"
2240 print#4
2310 print#4,sp$;"puzzle #4: frantic fifteens"
2315 print#4
2316 print#4,sp$;"pairs: 0/0 4/0 4/1 4/2 4/3 4/4 4/5 4/6 ";
2317 print#4,"5/1 5/2 5/3 5/6 5/0 5/5 1/0"
2319 print#4
2320 print#4,sp$;" -- -- -- -- -- --"
2321 print#4,sp$;": 1/4 :: 5/3 :: 4/2 : 19"
2322 print#4,sp$;" -- -- -- -- -- --"
2324 print#4,sp$;": 1/5 :: 0/0 :: 0/5 : 11"
2325 print#4,sp$;" -- -- -- -- -- --"
2327 print#4,sp$;": 2/5 :: 5/5 :: 3/4 : 24"
2328 print#4,sp$;" -- -- -- -- -- --"
2329 print#4,sp$;": 1/0 :: 5/4 :: 4/0 : 14"
2330 print#4,sp$;" -- -- -- -- -- --"
2331 print#4,sp$;": 4/4 :: 6/4 :: 5/6 : 29"
2332 print#4,sp$;" -- -- -- -- -- --"
2335 print#4,sp$;" 9 18 21 16 16 17"
2500 print#4:close4:goto155
2505 :
6000 open4,4
6005 print#4, " #101 - dominos"
6010 print#4:close4:return
9000 sys52496,7:pp=1
9005 poke214,15:print:printtab(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9010 printtab(7)"[221] [208]rinter [210]eady? [y/n] [221]"
9025 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
9035 getk$:ifk$=""then9035
9036 ifk$="y"thenpp=0
9040 sys52499,7:gosub28:return
9045 :
9800 poke214,21:print:println$;
9805 print"[221][154]